home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / misc / verscheckgui / install < prev    next >
Text File  |  1999-11-30  |  9KB  |  331 lines
  1. ; $VER: InstallVersCheckGUI V 1.1 (19.11.1999) multi language version
  2. ; Installer script to install/update VersCheckGUI
  3. ; written by Michaela Prüß
  4. ; Note(s):
  5. ; - This script includes a special feature for use by InstallerNG
  6. ; - Last settings will stored and reloaded at next installation
  7. ; - Testet with Installer V44 (OS3.5) and InstallerNG 1.4
  8. ; ----------------------------------------------------------------------------
  9. ; languages (the number is the used language number inside this script)
  10. ; ----------------------------------------------------------------------------
  11. ;  #  translation exists for install  catalog  guide
  12. ;
  13. ;  0  english -default-        YES      YES     YES
  14. ;
  15. ; ----------------------------------------------------------------------------
  16. ; init var's and set text vars (english) as default, other languages later
  17. ; ----------------------------------------------------------------------------
  18.  
  19. (complete 0)
  20. (user 0)
  21. (set @app-name "VersCheckGUI")
  22. (set #default_language 0)
  23.  
  24. ;== output and help ENGLISH ==================================================
  25.  
  26. (set @abort-button "Abort")
  27.  
  28. (set #err_oldkick "Need KickStart 2.0 or higher")
  29.  
  30. (set #mes_copyfile "Copy file...")
  31.  
  32. (set #mes_copyinfo "Copy icon...")
  33.  
  34. (set #ask_true "Yes")
  35. (set #ask_false "No")
  36.  
  37. (set #txt_ask_prgcpu
  38.   (cat "\nInstall VersCheckGUI on harddisk."
  39.        "\n\nPlease choose your CPU type:"
  40. ))
  41.  
  42. (set #hlp_ask_prgcpu
  43.   (cat "\nVersCheckGUI will be installed in a later choosen"
  44.        "\ndrawer."
  45.        "\nFirst set the cpu-version that you want to be"
  46.        "\ninstalled!"
  47.        "\n\nMichaela Prüß, 16.10.1999\n"
  48. ))
  49.  
  50. (set #txt_ask_docs
  51.   (cat "Path for the document's.\n"
  52.        "A drawer 'VersCheckGuide' will be added there!"
  53. ))
  54.  
  55. (set #hlp_ask_docs "Drawer for the documentation.\n")
  56.  
  57. (set #txt_ask_fonts "Install xen.font into fonts: drawer?\n")
  58.  
  59. (set #hlp_ask_fonts
  60.   (cat "\nDo you want to install the xen.font to your"
  61.        "\nfonts: drawer?\n"
  62.        "\nThis font is needed for VersCheckGUI!\n"
  63. ))
  64.  
  65. (set #choice_cpu-0 "68000")
  66. (set #choice_cpu-1 "68010")
  67. (set #choice_cpu-2 "68020 / 68881")
  68. (set #choice_cpu-3 "68030 / 68882")
  69. (set #choice_cpu-4 "68040 / FPU 040")
  70. (set #choice_cpu-5 "68060 / FPU 060")
  71. (set #choice_cpu-6 "PowerPC with PowerUp")
  72. (set #choice_cpu-7 "PowerPC with Warp-OS")
  73.  
  74. (set #txt_dir_prog
  75.   (cat "Select path for the programfile."
  76.        "\nUse the drawer where VersCheck is installed!"
  77.        "\nNo new drawer will be added!"
  78. ))
  79.  
  80. (set #hlp_dir_prog
  81.   (cat "Choose the location for installing"
  82.        "\nVersCheckGUI."
  83. ))
  84.  
  85. (set #txt_finish
  86.   (cat "\nEnd of installation!\n"
  87.        "\nVersCheckGUI is complete installed and txt_finish for"
  88.        "\nusage!\n"
  89. ))
  90.  
  91. (set #txt_welcome
  92.   (cat "\nWelcome to the installation of\nVersCheckGUI!\n\n"
  93.        "(c) 1998, 1999 by Michaela Prüß"
  94.        "\n\nVersCheckGUI need VersCheck to work!\n"
  95. ))
  96.  
  97. ;=============================================================================
  98. ; HERE THE WORK BEGIN                       *** Check system, set defaults ***
  99. ;=============================================================================
  100. (user 2)
  101.  
  102. (onerror ((if (> @ioerr 0)(message (cat "\n INSTALLER ERROR: " @ioerr "\n\n")))))
  103. (complete 1)
  104.  
  105. (if (< (/ (getversion) 65536) 37)((abort #err_oldkick)))
  106. (complete 2)
  107.  
  108. (message #txt_welcome)
  109. (complete 5)
  110.  
  111. (set #cpu 0)
  112. (if (patmatch "68010" (database "cpu"))((set #cpu 1)))
  113. (if (patmatch "68020" (database "cpu"))((set #cpu 2)))
  114. (if (patmatch "68030" (database "cpu"))((set #cpu 3)))
  115. (if (patmatch "68040" (database "cpu"))((set #cpu 4)))
  116. (if (patmatch "68060" (database "cpu"))((set #cpu 5)))
  117.  
  118. (set #testlib (tackon "libs:" "PowerPC.library"))
  119. (if (= (exists #testlib) 0)(
  120.   (set #testlib (tackon "libs:" "ppc.library"))
  121.   (if (= (exists #testlib) 0)(
  122.     (set #prgcpu #cpu)
  123.   )(
  124.     (set #prgcpu 6)))
  125. )(
  126.   (set #prgcpu 7)
  127. ))
  128. (complete 7)
  129. (set #stortest (tackon "env:" "VCheck/VersDir"))
  130. (if (= (exists #stortest) 0)(
  131.   (set #stored_dir_prog "c:")
  132. )(
  133.   (set #stored_dir_prog (getenv "VCheck/VersDir"))
  134. ))
  135. (set #stortest (tackon "env:" "VCheck/VersDoc"))
  136. (if (= (exists #stortest) 0)(
  137.   (set #stored_dir_docs "help:")
  138. )(
  139.   (set #stored_dir_docs (getenv "VCheck/VersDoc"))
  140. ))
  141.  
  142. ;=============================================================================
  143. ; HERE THE INPUT BEGIN / USER ACTION                *** All need questions ***
  144. ;=============================================================================
  145.  
  146. (user 2)
  147. (set #inst_cpu_prog
  148.   (askchoice
  149.     (default #prgcpu)
  150.     (prompt  #txt_ask_prgcpu)
  151.     (help    #hlp_ask_prgcpu)
  152.     (choices #choice_cpu-0
  153.              #choice_cpu-1
  154.              #choice_cpu-2
  155.              #choice_cpu-3
  156.              #choice_cpu-4
  157.              #choice_cpu-5
  158.              #choice_cpu-6
  159.              #choice_cpu-7
  160. )))
  161. (complete 10)
  162. (if (= @installer-ng-version 0)(
  163.   (set #inst_dir_prog
  164.     (askdir
  165.       (prompt  #txt_dir_prog)
  166.       (help    #hlp_dir_prog)
  167.       (default #stored_dir_prog)
  168.       (disk)
  169.   ))
  170.   (set #inst_dir_docs
  171.     (askdir
  172.       (prompt  #txt_dir_docs)
  173.       (help    #hlp_dir_docs)
  174.       (default #stored_dir_docs)
  175.       (disk)
  176.   ))
  177. )(
  178.   (set #inst_dir_prog
  179.     (askdir
  180.       (prompt  (cat (cat #txt_dir_prog "\n\ndefault: »")(cat #stored_dir_prog "«")))
  181.       (help    #hlp_dir_prog)
  182.       (default #stored_dir_prog)
  183.       (disk)
  184.   ))
  185.   (set #inst_dir_docs
  186.     (askdir
  187.       (prompt  (cat (cat #txt_dir_docs "\n\ndefault: »")(cat #stored_dir_docs "«")))
  188.       (help    #hlp_dir_docs)
  189.       (default #stored_dir_docs)
  190.       (disk)
  191. ))))
  192. (complete 20)
  193. (set #inst_set_fonts
  194.   (askchoice
  195.     (prompt  #txt_ask_fonts)
  196.     (help    #hlp_ask_fonts)
  197.     (choices #ask_true
  198.              #ask_false
  199. )))
  200. (complete 25)
  201.  
  202. ;=============================================================================
  203. ; HERE THE COPY BEGIN                                *** install all files ***
  204. ;=============================================================================
  205.  
  206. (user 0)
  207. (if (= #inst_cpu_prog 0)(
  208.   (copyfiles
  209.     (prompt  #mes_copyfile)
  210.     (dest    #inst_dir_prog)
  211.     (source  "VersCheckGUI")
  212.     (newname "VersCheckGUI")
  213.     (infos)
  214. )))
  215. (if (= #inst_cpu_prog 1)(
  216.   (copyfiles
  217.     (prompt  #mes_copyfile)
  218.     (dest    #inst_dir_prog)
  219.     (source  "VersCheckGUI.010")
  220.     (newname "VersCheckGUI")
  221.     (infos)
  222. )))
  223. (if (= #inst_cpu_prog 2)(
  224.   (copyfiles
  225.     (prompt  #mes_copyfile)
  226.     (dest    #inst_dir_prog)
  227.     (source  "VersCheckGUI.020")
  228.     (newname "VersCheckGUI")
  229.     (infos)
  230. )))
  231. (if (= #inst_cpu_prog 3)(
  232.   (copyfiles
  233.     (prompt  #mes_copyfile)
  234.     (dest    #inst_dir_prog)
  235.     (source  "VersCheckGUI.030")
  236.     (newname "VersCheckGUI")
  237.     (infos)
  238. )))
  239. (if (= #inst_cpu_prog 4)(
  240.   (copyfiles
  241.     (prompt  #mes_copyfile)
  242.     (dest    #inst_dir_prog)
  243.     (source  "VersCheckGUI.040")
  244.     (newname "VersCheckGUI")
  245.     (infos)
  246. )))
  247. (if (= #inst_cpu_prog 5)(
  248.   (copyfiles
  249.     (prompt  #mes_copyfile)
  250.     (dest    #inst_dir_prog)
  251.     (source  "VersCheckGUI.060")
  252.     (newname "VersCheckGUI")
  253.     (infos)
  254. )))
  255. (if (= #inst_cpu_prog 6)(
  256.   (copyfiles
  257.     (prompt  #mes_copyfile)
  258.     (dest    #inst_dir_prog)
  259.     (source  "VersCheckGUI.elf")
  260.     (newname "VersCheckGUI")
  261.     (infos)
  262. )))
  263. (if (= #inst_cpu_prog 7)(
  264.   (copyfiles
  265.     (prompt  #mes_copyfile)
  266.     (dest    #inst_dir_prog)
  267.     (source  "VersCheckGUI.wos")
  268.     (newname "VersCheckGUI")
  269.     (infos)
  270. )))
  271. (complete 25)
  272. (copyfiles
  273.   (prompt  #mes_copyinfo)
  274.   (dest    #inst_dir_prog)
  275.   (source  "VersCheckGUI.info")
  276.   (newname "VersCheckGUI.info")
  277.   (infos)
  278. )
  279. (complete 30)
  280. (copylib
  281.   (prompt #mes_copyfile)
  282.   (dest   "Libs:")
  283.   (source "Libs/intuisup.library")
  284. )
  285. (complete 40)
  286. (set #n 0)
  287. (while
  288.   (set #workfile (select #n
  289.     "ReadMe.1st"
  290.     "Doku/VersCheckGUI.readme"
  291.     "Doku/VersCheckGUI.doc"
  292.     ""
  293.   ))
  294.   (copyfiles
  295.     (prompt  #mes_copyfile)
  296.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  297.     (source  #workfile)
  298.   )
  299.   (copyfiles
  300.     (prompt  #mes_copyfile)
  301.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  302.     (source  (cat #workfile ".info"))
  303.   )
  304.   (set #n (+ #n 1))
  305. )
  306. (complete 80)
  307. (copyfiles 
  308.   (prompt  #mes_copyfile)
  309.   (dest    (tackon #inst_dir_docs "VersCheckGuide/GUISource"))
  310.   (source  "src")
  311.   (all)
  312. )
  313. (complete 90)
  314. (if (= #inst_set_fonts)
  315.   (copyfiles
  316.     (prompt  #mes_copyfile)
  317.     (dest    "Fonts:")
  318.     (source  "Fonts")
  319.     (pattern "#?")
  320. ))
  321. (user 2)
  322.  
  323. ;=============================================================================
  324. ; SAY GOODBYE TO THE USER                                      *** the end ***
  325. ;=============================================================================
  326.  
  327. (complete 100)
  328. (message #txt_finish)
  329. (exit (quiet))
  330. (welcome)
  331.